#!/usr/bin/perl
use strict;
use warnings;
use XML::Simple;
use Data::Dumper;
my $config = XMLin("manifest.xml");
while (my ( $key, $value) = each %{$config->{'project'}}) {
my $list = $value->{path};
print "$list\n";
}
